How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/act6b/00035.ls

Text File | 1995-03-28 | 491 b | 26 lines

on moveyes
  global bugeyesx, bugeyesy, eyerange
  set eyegore to eyerange / 2
  set mh to the mouseH
  set mv to the mouseV
  if mh > 640 then
    set mh to 640
  end if
  if mh < 0 then
    set mh to 0
  end if
  if mv > 480 then
    set mv to 480
  end if
  if mv < 0 then
    set mv to 0
  end if
  set mh to bugeyesx - ((bugeyesx - mh) / eyerange)
  set mv to bugeyesy - ((bugeyesy - mv) / eyerange)
  set the locH of sprite 19 to mh
  set the locV of sprite 19 to mv
end

on sodit
end